home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcppal.arc / NEWARK.CMD < prev    next >
OS/2 REXX Batch file  |  1987-01-01  |  4KB  |  165 lines
  1.       CLEAR
  2.       LOCATE 1,0
  3.       TRANSMIT "C DIAL"
  4.       TRANSMIT S2
  5.       TRANSMIT "/"
  6.       TRANSMIT S9
  7.       TRANSMIT ","
  8.       TRANSMIT S8
  9.       TRANSMIT "!"
  10.       WAITFOR "="
  11.       TRANSMIT S7
  12.       TRANSMIT "!"
  13.       CLEAR
  14.       RGET S5
  15.       RGET S5
  16.       LOCATE 1,0
  17.       RGET S5
  18.       PAUSE 1
  19.  
  20.       FIND S5 "CONNECT"
  21.  
  22.       IF NOT FOUND
  23.          CLEAR
  24.          LOCATE 1,0
  25.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE MAIN MENU"
  26.          PAUSE 2
  27.          CLEAR
  28.          LOCATE 1,0
  29.          EXECUTE "INTRO.CMD"
  30.       ENDIF
  31.  
  32.  
  33. BEGIN:
  34.    CLEAR
  35.    LOCATE 4,0
  36.    MESSAGE "                         ╔══╡   NEWARK NUMBERS    ╞══╗"
  37.    MESSAGE "                         ║                           ║"
  38.    MESSAGE "                         ║  1 - Sea Board ARC        ║"
  39.    MESSAGE "                         ║  2 - Software Society     ║"
  40.    MESSAGE "                         ║  3 - Sparta #1            ║"
  41.    MESSAGE "                         ║  4 - Sparta #2            ║"
  42.    MESSAGE "                         ║  5 - MicroSteller         ║"
  43.    MESSAGE "                         ║  6 - Flea Market          ║"
  44.    MESSAGE "                         ║  M - Manual Dial          ║"
  45.    MESSAGE "                         ║  Q - Return to MAIN menu  ║"
  46.    MESSAGE "                         ║                           ║"
  47.    MESSAGE "                         ╠═══════════════════════════╣"
  48.    MESSAGE "                         ║ ENTER THE # OF THE BBS OF ║"
  49.    MESSAGE "                         ║ YOUR CHOICE:              ║"
  50.    MESSAGE "                         ╚═══════════════════════════╝"
  51.  
  52.  
  53.  
  54.  
  55.  
  56.    LOCATE 17,40
  57.    MESSAGE  " "
  58.    LOCATE 17,40
  59.    GET S5 1
  60.  
  61.    SWITCH S5
  62.  
  63.       CASE "1"
  64.          ASSIGN S3 "Sea Board ARC"
  65.          ASSIGN S4 "4728065"
  66.       ENDCASE
  67.  
  68.       CASE "2"
  69.          ASSIGN S3 "Software Society"
  70.          ASSIGN S4 "7297410"
  71.       ENDCASE
  72.  
  73.       CASE "3"
  74.          ASSIGN S3 "Sparta #1"
  75.          ASSIGN S4 "7297056"
  76.       ENDCASE
  77.  
  78.       CASE "4"
  79.          ASSIGN S3 "Sparta #2"
  80.          ASSIGN S4 "7395377"
  81.       ENDCASE
  82.  
  83.       CASE "5"
  84.          ASSIGN S3 "MicroStellar"
  85.          ASSIGN S4 "2391346"
  86.       ENDCASE
  87.  
  88.       CASE "6"
  89.          ASSIGN S3 "Flea Market"
  90.          ASSIGN S4 "4461655"
  91.       ENDCASE
  92.  
  93.  
  94.  
  95.       CASE "M"
  96.          CLEAR
  97.          LOCATE 5,20
  98.          MESSAGE "NUMBER TO DIAL:"
  99.          LOCATE 5,36
  100.          ASSIGN S3 "MANUAL DIAL"
  101.          GET S4
  102.       ENDCASE
  103.  
  104.       CASE "Q"
  105.          CLEAR
  106.          TRANSMIT "!@!"
  107.          WAITFOR "@"
  108.          TRANSMIT "D!"
  109.          WAITFOR "@"
  110.          CLEAR
  111.          LOCATE 1,0
  112.          PAUSE 1
  113.          EXECUTE "INTRO.CMD"
  114.       ENDCASE
  115.  
  116.       DEFAULT
  117.          MESSAGE "^G"
  118.          LOCATE 17,40
  119.          GOTO BEGIN
  120.       ENDCASE
  121.  
  122. ENDSWITCH
  123.       CLEAR
  124.       LOCATE 1,0
  125.       MESSAGE "CONNECTED TO PCP"
  126.       MESSAGE S1
  127.       MESSAGE "DIALING"
  128.       MESSAGE S3
  129.  
  130.  
  131.       TRANSMIT "ATZ!"
  132.       WAITFOR "OK" 10
  133.       TRANSMIT "ATDT"
  134.       TRANSMIT S4
  135.       TRANSMIT "!"
  136.       RGET S0
  137.       RGET S0 80 40
  138.       RGET S0
  139.       PAUSE 2
  140.  
  141.       FIND S0 "BUSY"
  142.       IF FOUND
  143.          CLEAR
  144.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  145.          PAUSE 2
  146.          CLEAR
  147.          LOCATE 1,0
  148.          GOTO BEGIN
  149.       ENDIF
  150.  
  151.       FIND S0 "CONNECT"
  152.       IF FOUND
  153.          SET PARITY NONE
  154.          SET DATABITS 8
  155.       ELSE
  156.          CLEAR
  157.          MESSAGE "THE REMOTE PCP IS BUSY....RETURNING TO THE CITY MENU"
  158.          PAUSE 2
  159.          CLEAR
  160.          LOCATE 1,0
  161.          GOTO BEGIN
  162.       ENDIF
  163.  
  164.       ALARM 1
  165.       EXIT